home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d1.adf / Install-FRED < prev    next >
Text File  |  1992-06-20  |  1KB  |  62 lines
  1. ; This is the installation script for FRED
  2.  
  3. (set osversion (/ (getversion) 65536))
  4. (if (< osversion 36)
  5.     (abort    "FRED requires AmigaDOS 2.0 or later to run.")
  6. )
  7. (set @default-dest
  8.     (askdir
  9.         (prompt "Please select the directory into which you\nwish to install FRED.\n"
  10.             "(We suggest you install FRED\ninto the same directory as ADPro.)"
  11.         )
  12.         (help    "You must select a directory into which FRED will be installed."
  13.             "This directory will contain FRED, and will have two sub-directories "
  14.             "created in it \"AnimOps\" and \"Sequences\"."
  15.         )
  16.         (default "ADPRO:")
  17.     )
  18. )
  19.  
  20. (set animopsdir (tackon @default-dest "AnimOps"))
  21. (if
  22.     (= (exists animopsdir) 0)
  23.     (makedir animopsdir)
  24. )
  25. (set sequencesdir (tackon @default-dest "sequences"))
  26. (if
  27.     (= (exists sequencesdir) 0)
  28.     (makedir sequencesdir)
  29. )
  30. (copyfiles
  31.     (prompt "")
  32.     (help "")
  33.     (source "ADPRO2.D2:FRED/FRED")
  34.     (dest @default-dest)
  35.     (infos)
  36. )
  37. (copyfiles
  38.     (prompt "")
  39.     (help "")
  40.     (source "ADPRO2.D2:FRED/AnimOps")
  41.     (dest animopsdir)
  42.     (pattern "#?")
  43.     (infos)
  44. )
  45.  
  46. (if (= 1 (exists "S:User-Startup"))
  47.     (
  48.         (startup
  49.             "ADPro_FRED"
  50.             (prompt "Add ADP_FRED: assignment to \"S:user-startup\"?")
  51.             (help 
  52.                 "Select YES to add an ADP_FRED: assignment to the user-startup file.\n\n"
  53.                 @startup-help
  54.             )
  55.             (command ("Assign ADP_FRED: %s" @default-dest))
  56.         )
  57.     )
  58. )
  59. (makeassign "ADP_FRED" @default-dest)
  60.  
  61. (exit)
  62.